|
2100
|
Can bars have a grey backcolor and black border color for a summary-bar (EBN)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.RenderType = -2
.Add 1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwH" & _
"IERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6" & _
"STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKp" & _
"FHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQha" & _
"XQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC"
.Add 2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQG" & _
"h+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKf" & _
"aZACj4arKejrRDCMAggI="
.Add 3,"gBFLBCJwBAEHhEJAAEhABN8GACAADACAxRDgMQBQKAAzQFAcDBvBgABiHEZoJhUAIIRZGMIjFDcEwxDSMY7jcYAFgkNQwCUtcBIJDEMIoAJLIwyBKkNQ5AabYrmWJpM" & _
"gOEAyDSJM70DCEThLD4aZJnOa5ZjmH5LRBQdBRXQMYwIGCiZQpeKqbgMBoJApCIJxdBNLAAf60LLtGJaSpKZouViJNjSBD4HQTL6BQwsKxIDqaaD/WpgFuLTjiRImShc" & _
"MQXJYFbwTOyBbDjG7rJr+FptYRbdYYRQ8dy7Cywa6pOa8YwacotZrAdDXHTmHw1PTRNDmTRYRwfKqJZxieqwHoMLYgAC8Ni3OaoDAiCRQGiYZyHKaRSwPBInIYIIjeRg" & _
"zBSAYKCEOySEodZbjybo0HefwfhMLQDnKeg9D6LwsCeV5unYQJYH8Lxvj+a5jgSfIYH8T43hOcZ5H+X4nh2fB6F+aABnOAIfFgFgGgGH43nICoCl+eA1n0fBhAgVZ5gS" & _
"HoID4FoDCCCBqBuBYUjgfgigGURYg4JoJmKCBFBaChikiNgVEYYpokYMoMCMKJWCkcIjgiZg6E0Do3gUASAg="
End With
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Def(4) = 18
.Color = &H1000000
End With
With .Bars.Item("Summary")
.Def(4) = 18
.Color = &H2000000
End With
With .Bars.Copy("Summary","SummaryN")
.Def(4) = 18
.Color = &H3000000
End With
End With
With .Items
hSummaryJ = .AddItem("Summary A")
.AddBar hSummaryJ,"Summary",#1/2/2001#,#1/2/2001#,"J"
hTaskJ = .InsertItem(hSummaryJ,,"Task A.1")
.AddBar hTaskJ,"Task",#1/2/2001#,#1/5/2001#,"J1"
hTaskJ = .InsertItem(hSummaryJ,,"Task A.2")
.AddBar hTaskJ,"Task",#1/4/2001#,#1/8/2001#,"J2"
.DefineSummaryBars hSummaryJ,"J",-1,"<*>"
hSummaryK = .AddItem("Summary B")
.AddBar hSummaryK,"Summary",#1/2/2001#,#1/2/2001#,"K"
hTaskK = .InsertItem(hSummaryK,,"Task B.1")
.AddBar hTaskK,"Task",#1/2/2001#,#1/5/2001#,"K1"
hTaskK = .InsertItem(hSummaryK,,"Task B.2")
.AddBar hTaskK,"Task",#1/4/2001#,#1/8/2001#,"K2"
.DefineSummaryBars hSummaryK,"K",-1,"<*>"
hSummaryN = .AddItem("Summary C")
.AddBar hSummaryN,"SummaryN",#1/2/2001#,#1/2/2001#,"SN"
hTaskK = .InsertItem(hSummaryN,,"Task B.1")
.AddBar hTaskK,"Task",#1/2/2001#,#1/5/2001#,"N1"
hTaskK = .InsertItem(hSummaryN,,"Task B.2")
.AddBar hTaskK,"Task",#1/4/2001#,#1/8/2001#,"N2"
.DefineSummaryBars hSummaryN,"SN",-1,"<*>"
.ItemBar(0,"<K*>",33) = 255
.ItemBar(0,"<N*>",33) = 8421504
.ExpandItem(0) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2099
|
How can I display UNICODE characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.PaneWidth(True) = 0
With .Font
.Name = "Arial Unicode"
.Size = 22
End With
.HeaderVisible = False
.DefaultItemHeight = 48
.Columns.Add("").Def(17) = 1
With .Items
.AddItem "Ӓӓ"
.AddItem "ᦜᦝ;ᦞ"
.AddItem "ɮɭ;ɯ"
.AddItem "勳勴勵勶"
.FormatCell(.AddItem(G2antt1.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` "
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2098
|
How can I display 12-hour time (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 0
.LevelCount = 2
.Level(0).Label = 4096
With .Level(1)
.Unit = 65536
.FormatLabel = "(0 := hour(dvalue)) < 12 ? ( `<fgcolor=808080>` + ( =:0 = 0 ? 12 : =:0 ) + `</fgcolor>` ) : (=:0 - 12)"
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2097
|
How can I display 12-hour time (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 0
.LevelCount = 2
.Level(0).Label = 4096
.Level(1).Label = "<%h12%>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2096
|
How do I scale to hours
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 0
.LevelCount = 2
.Level(0).Label = 4096
.Level(1).Label = 65536
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2095
|
How do I display the position of the item with 0-padding
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value"
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
.AddItem "Item D"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2094
|
Can I format the label in row 3 below to show day numbers, only for Mondays each week (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.PaneWidth(0) = 0
.FirstVisibleDate = #1/31/2009#
.LevelCount = 3
.FirstWeekDay = 1
With .Level(0)
.Label = "<%mmmm%> <%yyyy%>"
.Alignment = 1
.Unit = 16
End With
With .Level(1)
.Unit = 256
.Label = "Week <%ww%>"
.Alignment = 1
End With
With .Level(2)
.Unit = 4096
.FormatLabel = "weekday(dvalue) = 1 ? day(dvalue): ''"
End With
.UnitWidth = 23
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
2093
|
Can I format the label in row 3 below to show day numbers, only for Mondays each week (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.PaneWidth(0) = 0
.FirstVisibleDate = #1/31/2009#
.LevelCount = 3
.FirstWeekDay = 1
With .Level(0)
.Label = "<%mmmm%> <%yyyy%>"
.Alignment = 1
.Unit = 16
End With
With .Level(1)
.Unit = 256
.Label = "Week <%ww%>"
.Alignment = 1
End With
With .Level(2)
.Unit = 4096
.FormatLabel = "weekday(dvalue) = 1 ? value : ''"
End With
.UnitWidth = 23
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
2092
|
How can I change the caption for all bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Add("Task%Progress")
.Shortcut = "Task"
.Def(14) = True
End With
End With
With .Items
.AddBar .AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#
.AddBar .AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#
.AddBar .AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#
.AddBar .AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#
.ItemBar(0,"<*>",14) = False
.ItemBar(0,"<*>",3) = "<%= %C0 replace `Task` with `Task<off 4><b>` %>"
.ItemBar(0,"<*>",4) = 18
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2091
|
Can't get the +/- to be displayed on a divider item. What else can I do
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
.DrawGridLines = -1
.TreeColumnIndex = 0
.MarkSearchColumn = False
.FullRowSelect = 0
.HeaderAppearance = -1 ' &Hfffffff8 Or AppearanceEnum.Bump Or AppearanceEnum.Sunken
.Chart.PaneWidth(True) = 0
With .Columns
.Add("C1").Width = 32
.Add("C2").FormatColumn = "1 index ``"
End With
With .Items
h = .AddItem("Cell 1")
.CellSingleLine(h,1) = False
h = .AddItem("This is bit of text merges all cells in the item (divider shows no +/-)")
.ItemDivider(h) = 0
.ItemBackColor(h) = RGB(240,240,240)
.ItemDividerLine(h) = 0
.CellHAlignment(h,0) = 1
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Cell 3")
h = .AddItem("This is bit of text merges all cells in the item (merge shows +/-)")
.ItemBackColor(h) = RGB(240,240,240)
.CellMerge(h,0) = 1
.InsertItem h,,"Child 3"
.InsertItem h,,"Child 4"
.ExpandItem(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2090
|
How can I display one or more columns on the same bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ItemDividerLine(Item) = 0
.AddBar Item,"Summary",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
l = .GroupItem(Item)
.CellSingleLine(Item,l) = False
.CellBold(Item,l) = True
.ItemBackColor(Item) = RGB(190,190,190)
End With
.Chart.ItemBackColor(Item) = RGB(190,190,190)
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
With .Bars.Item("Summary")
.StartShape = 0
.EndShape = 0
.Shape = 1
.Color = &H1000000
.Def(3) = "<%=%513%>"
.Def(4) = 18
End With
With .Bars.Item("Task")
.Pattern = 32
.Color = RGB(164,164,164)
.StartColor = RGB(240,240,240)
.EndColor = .StartColor
.Def(3) = "<%= `<font ;6><fgcolor=0000FF><i>` + %C0 + ` ` + %C1 + ` ` + %C2 %>"
.Def(4) = 13
End With
End With
With .Columns
.Add "C1"
.Add("C2").Editor.EditType = 1
.Add("C3").Editor.EditType = 1
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
.HasLines = 0
.LinesAtRoot = 0
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.3"
.CellValue(h,2) = "SubItem A.4"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.5"
.CellValue(h,2) = "SubItem A.6"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.7"
.CellValue(h,2) = "SubItem A.8"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.3"
.CellValue(h,2) = "SubItem B.4"
End With
With .Columns.Item(0)
.SortOrder = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2089
|
How can I associate a box/note to a date into the control's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ScrollBySingleLine = True
.Columns.Add "Task"
.HeaderHeight = 17
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 96
.LevelCount = 2
.SelBackColor = G2antt1.SelBackColor
End With
With .Items
.AddItem "Item 1"
.SelectItem(.AddItem("Item 2")) = True
.AddItem "Item 3"
End With
With .Chart.Notes
With G2antt1.Items
.LockedItemCount(0) = 1
hLocked = .LockedItem(0,0)
.ItemHeight(hLocked) = 1
End With
With .Add("header",hLocked,#1/7/2001#,"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
.PartVisible(0) = True
.PartText(0) = "<b><%d%></b>"
.PartCanMove(1) = True
.PartCanMove(0) = True
.PartVOffset(0) = -9
.PartVOffset(1) = 20
.PartHOffset(1) = 20
.PartBackColor(0) = RGB(255,255,0)
.PartFixedWidth(0) = 18
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2088
|
How can I define a column of button type
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
With G2antt1
With .Items
alert( .CellValue(Item,ColIndex) )
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("Button")
.Def(2) = True
.Def(3) = False
.FormatColumn = "``"
.AllowSizing = False
.Width = 48
End With
.Columns.Add("Second").FormatColumn = "` Item ` + 1 index ``"
With .Items
.AddItem "Button 1"
.AddItem "Button 2"
.AddItem "Button 3 "
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2087
|
Is it possible to configure different colour/icon when there is a active filter
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_FilterChange()
With G2antt1
.Background(0) = .FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",.Columns.Item(0).FilterType)
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.RenderType = -16777216
.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
End With
.DrawGridLines = -1
.ShowFocusRect = False
.Background(0) = &H1000001
.Background(32) = -1
.HeaderAppearance = 4
.BackColorHeader = RGB(255,255,255)
.HeaderVisible = 1
With .Columns.Add("Filter")
.DisplayFilterButton = True
.AllowSort = False
.AllowDragging = False
.FilterList = 256
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
With .Columns.Item(0)
.Filter = "Item B"
.FilterType = 240
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2086
|
ADODB Requery sample
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
With G2antt1
Set cmd = CreateObject("ADODB.Command")
With cmd
.ActiveConnection = G2antt1.DataSource.ActiveConnection
.CommandText = "INSERT INTO Orders (EmployeeID) VALUES(12345)"
.CommandType = 1
.Execute
End With
.DataSource.Requery
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Error(Error,Description)
With G2antt1
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderAppearance = 4
.ColumnAutoResize = False
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,3
End With
.DataSource = rs
.ConditionalFormats.Add("%1=12345").BackColor = RGB(240,240,240)
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellHasButton(h,0) = True
.CellValue(h,0) = "Requery (add a new record, using ADODB.Command)"
.CellHAlignment(h,0) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2085
|
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" & _
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" & _
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" & _
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" & _
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" & _
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" & _
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" & _
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" & _
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" & _
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ="
.Add 2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" & _
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" & _
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" & _
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" & _
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" & _
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA=="
End With
.BackColorHeader = &H1000000
.ForeColorHeader = RGB(128,128,128)
.Background(0) = &H2000000
.Background(26) = RGB(255,255,255)
.Background(27) = RGB(0,0,1)
.Background(20) = &H1ff8000
.Background(21) = RGB(240,240,240)
.Background(32) = -1
.HeaderHeight = 24
.BackColorLevelHeader = .BackColor
With .Columns.Add("Filter")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.Def(52) = 2
.Def(53) = 2
End With
With .Items
.AddItem "A"
.AddItem "B"
.AddItem "C"
.AddItem "D"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2084
|
I specify the ItemHeight for each row, but as soon as I click the chart section, the item's height is restored to default (not working). What could be the cause
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ScrollBySingleLine = True
.Columns.Add "Types"
.DrawGridLines = 1
With .Chart
.LevelCount = 2
.DrawGridLines = 1
.AllowCreateBar = 1
.AllowLinkBars = False
.ResizeUnitScale = 65536
.PaneWidth(False) = 112
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.OverlaidType = 3
.Def(3) = "<%=%9%>"
.Def(4) = 18
End With
End With
With .Items
h = .AddItem("ItemMinHeight")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A2"
.ItemMinHeight(h) = 64
.AddBar .AddItem("Default (One)"),"Task",#1/7/2001#,#1/10/2001#,"A3"
h = .AddItem("Default (Two)")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A4"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A5"
h = .AddItem("ItemFixedHeight")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A6"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A7"
.ItemMinHeight(h) = 20
.ItemMaxHeight(h) = 20
h = .AddItem("ItemMaxHeight")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A8"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A9"
.ItemMaxHeight(h) = 24
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2083
|
The ItemHeight property is not working (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Column").Width = 128
With .Items
.CellSingleLine(.AddItem("This is a bit of text that should break the line"),0) = 0
h = .AddItem("")
.ItemDivider(h) = 0
.SelectableItem(h) = False
.ItemDividerLineAlignment(h) = 1
.ItemHeight(h) = 3
.CellSingleLine(.AddItem("This is a bit of text that should break the line"),0) = 0
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2082
|
The ItemHeight property is not working (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns.Add("Column")
.Width = 128
.Def(16) = 0
End With
With .Items
.AddItem "This is a bit of text that should break the line"
h = .AddItem("")
.ItemDivider(h) = 0
.SelectableItem(h) = False
.ItemDividerLineAlignment(h) = 1
.ItemMinHeight(h) = 3
.ItemMaxHeight(h) = 3
.AddItem "This is a bit of text that should break the line"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2081
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
.HeaderAppearance = 4
With .Columns
.Add "City"
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.Description(26) = "Show/Hide"
.ColumnsFloatBarSortOrder = 1
.ColumnsFloatBarVisible = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2080
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
.HeaderAppearance = 4
With .Columns
.Add "City"
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.Description(26) = "Show"
.ColumnsFloatBarVisible = -1
.ColumnsFloatBarSortOrder = 1
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2079
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeGroupByColumns
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
.HeaderAppearance = 4
With .Columns
.Add "City"
.Add "Start"
.Add "End"
End With
.AllowGroupBy = True
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.BackColorSortBar = RGB(250,250,250)
.Description(26) = "Group-By"
.ColumnsFloatBarVisible = 1
.ColumnsFloatBarSortOrder = 1
.Columns.Item("City").SortOrder = 1
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2078
|
How can I advance to the next line, once the user presses the ENTER key
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_KeyDown(KeyCode,Shift)
With G2antt1
alert( "KeyCode Before:" )
alert( KeyCode )
KeyCode = .FormatABC("value = 13 ? 40 : value",KeyCode)
alert( "KeyCode After:" )
alert( KeyCode )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns
With .Add("A").Editor
.Appearance = 4
.EditType = 1
End With
With .Add("B").Editor
.Appearance = 4
.EditType = 1
End With
End With
With .Items
h0 = .AddItem("Item A.1")
.CellValue(h0,1) = "Item B.1"
h0 = .AddItem("Item A.2")
.CellValue(h0,1) = "Item B.2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2077
|
I am using AddNew to add new records, but I can not see them into the control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,1),.CellValue(Item,2)
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
With G2antt1
With .DataSource
.AddNew
.Fields.Item("Name").Value = "Task New"
.Update
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderAppearance = 4
Set rs = CreateObject("ADODB.Recordset")
With rs
With .Fields
.Append "Name",8
.Append "Start",7
.Append "End",7
End With
.Open
.AddNew
.Fields.Item("Name").Value = "Task A"
.Fields.Item("Start").Value = #1/4/2001#
.Fields.Item("End").Value = #1/10/2001#
.Update
.AddNew
.Fields.Item("Name").Value = "Task B"
.Fields.Item("Start").Value = #1/5/2001#
.Fields.Item("End").Value = #1/11/2001#
.Update
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item("Start").Def(18) = 1
.Columns.Item("End").Def(18) = 2
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellHasButton(h,0) = True
.CellValue(h,0) = "AddNew"
.CellHAlignment(h,0) = 1
End With
.DetectAddNew = True
.DetectDelete = True
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2076
|
How can I create a new ADO recordset
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,1),.CellValue(Item,2)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
Set rs = CreateObject("ADODB.Recordset")
With rs
With .Fields
.Append "Name",8
.Append "Start",7
.Append "End",7
End With
.Open
.AddNew
.Fields = "Task A"
.Fields = #1/4/2001#
.Fields = #1/10/2001#
.Update
.AddNew
.Fields = "Task B"
.Fields = #1/5/2001#
.Fields = #1/11/2001#
.Update
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item("Start").Def(18) = 1
.Columns.Item("End").Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2075
|
Do do I get the DAO version I have installed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
alert( CreateObject("DAO.DBEngine.35").Version.Version )
alert( CreateObject("DAO.DBEngine.36").Version.Version )
alert( CreateObject("DAO.DBEngine.120").Version.Version )
End With
End Function
</SCRIPT>
</BODY>
|
|
2074
|
How do I get a list of interfaces the object implemenets
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
With CreateObject("DAO.DBEngine.120")
Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb").OpenRecordset("Orders")
End With
alert( CreateObject("Exontrol.PropertiesList") )
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2073
|
Do do I get the ADO version I have installed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
alert( "ADO Version:" )
alert( CreateObject("ADODB.Connection").Version.Version )
End With
End Function
</SCRIPT>
</BODY>
|
|
2072
|
DAO, ACCDB, 120
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
With CreateObject("DAO.DBEngine.120")
Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb").OpenRecordset("Orders")
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2071
|
DAO, MDB, 120
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
With CreateObject("DAO.DBEngine.120")
Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\sample\Access\misc.mdb").OpenRecordset("Orders")
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2070
|
DAO, MDB
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
With CreateObject("DAO.DBEngine.36")
Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\sample\Access\misc.mdb").OpenRecordset("Orders")
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2069
|
ADODB, ACCDB, x64
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2068
|
ADOR, ACCDB
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2067
|
ADODB, MDB
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2066
|
ADOR, MDB
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.PaneWidth(False) = 256
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2065
|
I am using exCellValueToItemBarProperty, Is it possible to “disable” this synchronisation for one (or several) item (sample-2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns
.Add "Tasks"
.Add("Start").Def(18) = 1
.Add("End").Def(18) = 2
End With
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.PaneWidth(0) = 196
.AllowCreateBar = 1
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#
h = .AddItem("Task 2")
.AddBar h,"Task",#9/22/2006#,#9/25/2006#
.ItemBold(h) = True
.CellValueToItemBar h,1,1,"newbar"
.CellValueToItemBar h,2,2,"newbar"
.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2064
|
I am using exCellValueToItemBarProperty, Is it possible to “disable” this synchronisation for one (or several) item (sample-1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns
.Add "Tasks"
.Add("Start").Def(18) = 1
.Add("End").Def(18) = 2
End With
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.PaneWidth(0) = 196
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#
h = .AddItem("Task 2")
.AddBar h,"Task",#9/22/2006#,#9/25/2006#
.FormatCell(h,1) = "``"
.FormatCell(h,2) = "``"
.ItemBold(h) = True
.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2063
|
How can I use the CRD (eXCRD format)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderAppearance = 4
.SelBackMode = 1
With .Columns.Add("Default")
.Def(32) = "[b=0]60;1[b=15]:60,((20;""<fgcolor=808080>Dateigröße""[b=1][a=2]:120,2[b=15])/(20;""<fgcolor=808080>Erstellt am""[a=2]:120,3[b=" & _
"15])/(20;""<fgcolor=808080>Zuletzt bearbeitet""[b=4][a=2]:120,4[b=15]))"
.AllowSort = False
End With
.Columns.Add(1).Visible = False
With .Columns.Add(2)
.Visible = False
.Editor.EditType = 1
.FormatColumn = "1 index `A-Z`"
End With
With .Columns.Add(3)
.Visible = False
.Editor.EditType = 1
.FormatColumn = "1 index ``"
End With
With .Columns.Add(4)
.Visible = False
.Editor.EditType = 1
.FormatColumn = "date(``)"
End With
dih = 48
.DefaultItemHeight = dih
.DrawGridLines = -2
.GridLineStyle = 48
With .Chart
.DrawGridLines = -2
.GridLineStyle = 48
.PaneWidth(False) = 256
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.Bars.Item("Task").OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
End With
With .Items
h = .AddItem("")
.CellValue(h,1) = "One"
.AddBar h,"Task",#1/2/2001#,#1/12/2001#,"A"
.AddBar h,"Task",#1/4/2001#,#1/14/2001#,"B"
.ItemMaxHeight(h) = dih
h = .AddItem("")
.CellValue(h,1) = "Two"
.AddBar h,"Task",#1/5/2001#,#1/10/2001#,"A"
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"B"
.AddBar h,"Task",#1/5/2001#,#1/14/2001#,"B2"
.ItemMaxHeight(h) = dih
h = .AddItem("")
.CellValue(h,1) = "Three"
.AddBar h,"Task",#1/5/2001#,#1/10/2001#,"A"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2062
|
Type of wraps the cell's caption support (Sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = -2
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns
With .Add("Single-Line (exCaptionSingleLine)")
.Width = 96
.Def(17) = 1
.Def(16) = -1
.Def(6) = 0
End With
With .Add("Word-Wrap (exCaptionWordWrap)")
.Width = 96
.Def(17) = 1
.Def(16) = 0
.Def(6) = 0
.FormatColumn = "%0"
End With
With .Add("Break-Wrap (exCaptionBreakWrap)")
.Width = 96
.Def(17) = 1
.Def(16) = 1
.Def(6) = 0
.FormatColumn = "%0"
End With
End With
With .Items
.AddItem "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."
.AddItem "This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2061
|
Type of wraps the cell's caption support (Sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = -2
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.CellValueFormat(h,0) = 1
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 0
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.CellValueFormat(h,0) = 1
.CellSingleLine(h,0) = 0
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 1
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.CellValueFormat(h,0) = 1
.CellSingleLine(h,0) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2060
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DrawGridLines = -2
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2059
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DrawGridLines = -2
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns.Add("Default")
.Width = 128
.Def(16) = 1
End With
With .Items
.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2058
|
The histogram is showing empty space, when expanding an item. What could be wrong
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = 5
With .Chart
.LevelCount = 2
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 48
.HistogramView = 1392 ' HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramAllItems
.Bars.Item("Task").HistogramPattern = 6
End With
.Columns.Add "Column"
With .Items
h = .AddItem("Project 1")
.AddBar .InsertItem(h,,"Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .InsertItem(h,,"Item 2"),"Task",#1/3/2001#,#1/5/2001#
.ExpandItem(h) = True
h = .AddItem("Project 2")
.AddBar .InsertItem(h,,"Item 1"),"Task",#1/7/2001#,#1/10/2001#
.AddBar .InsertItem(h,,"Item 2"),"Task",#1/6/2001#,#1/8/2001#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2057
|
How can I change the visual appearance/color of the Filter For ... field
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
.BackColorHeader = RGB(1,0,0)
.ForeColorHeader = RGB(255,255,255)
.Background(26) = .BackColorHeader
.Background(27) = .ForeColorHeader
.Background(0) = RGB(240,240,240)
.Background(32) = -1
.HeaderAppearance = 5
With .Columns.Add("Items")
.FilterOnType = True
.DisplayFilterButton = True
.FilterList = 2
End With
With .Items
h = .AddItem("Root 1")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2056
|
How can I display the cell's caption without spaces on both sides
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = True
With .Columns.Add("Default")
.Def(17) = 1
.FormatColumn = "((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
End With
With .Items
.AddItem ""
.AddItem "Item A"
.AddItem " Item B"
.AddItem " Item C "
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2055
|
How can I highlight the spaces within the column (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = True
With .Columns.Add("Default")
.Def(17) = 1
.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
End With
With .Items
.AddItem ""
.AddItem "Item A"
.AddItem " Item B"
.AddItem " Item C "
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2054
|
How can I highlight the spaces within the column (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = True
With .Columns.Add("Default")
.Def(17) = 1
.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
End With
With .Items
.AddItem ""
.AddItem "Item A"
.AddItem " Item B"
.AddItem " Item C "
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2053
|
How can I change the visual aspect of the drop down filter-calendar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Background(26) = RGB(0,0,1)
.Background(27) = RGB(255,255,255)
.Background(12) = RGB(255,255,255)
.Background(8) = .Background(26)
.Background(11) = RGB(128,128,128)
With .Columns.Add("Date")
.FilterType = 4
.DisplayFilterButton = True
.DisplayFilterDate = True
.DisplayFilterPattern = False
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2052
|
How can I scroll the chart to ensure that a bar fits the chart's client area
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
With G2antt1
kBar = .Items.FirstItemBar(Item)
dStart = .Items.ItemBar(Item,kBar,1)
dEnd = .Items.ItemBar(Item,kBar,2)
dScroll = .FormatABC("(A+B)/2",dStart,dEnd)
.Chart.ScrollTo dScroll,1
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ShowFocusRect = False
.DrawGridLines = -1
.GridLineStyle = 3
.SelBackMode = 1
With .Chart
.OverviewVisible = 6402 ' OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewAllowVerticalScroll Or OverviewVisibleEnum.exOverviewShowAllVisible
.OverviewHeight = 26
.FirstVisibleDate = #6/8/2011#
.AdjustLevelsToBase = True
.PaneWidth(False) = 64
.UnitWidth = 14
.LevelCount = 2
.DrawGridLines = -1
.GridLineStyle = 3
.SelBackColor = G2antt1.SelBackColor
.ColumnsFormatLevel = """"":2,(""""/14;1/""""):14"
End With
With .Columns
.Add "Default"
With .Add("")
.Def(2) = True
.Def(4) = 15790320
.Visible = False
End With
End With
With .Items
.AddBar .AddItem("T1"),"Task",#6/9/2011#,#6/17/2011#
.AddBar .AddItem("T2"),"Task",#1/10/2012#,#1/17/2012#
.AddBar .AddItem("T3"),"Task",#2/19/2013#,#2/23/2013#
.AddBar .AddItem("T4"),"Task",#12/19/2014#,#12/23/2014#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2051
|
Is it possible to hide completely the list portion
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderHeight = 32
.OnResizeControl = 129 ' OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizeChart
.DrawGridLines = -1
With .ConditionalFormats.Add("%CS0 = 1")
.ApplyToBars = "Task"
.BarColor = RGB(255,0,0)
End With
With .Chart
.FirstVisibleDate = #6/8/2011#
.AdjustLevelsToBase = True
.PaneWidth(False) = 0
.LevelCount = 2
.AllowInsideZoom = True
With .Level(0)
.Alignment = 1
.Label = "<b><%d%>-<%mmm%>-<%yyyy%>"
.Unit = 4096
End With
With .Level(1)
.Label = "<%h%>"
.Count = 8
.Unit = 65536
.FormatLabel = "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : '" & _
"Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; " & _
"16 : 'Shift <b>3</b><br>26/24' ) ) )"
End With
.UnitWidth = 64
.NonworkingDays = 0
.ColumnsFormatLevel = "0"
.AllowInsideZoom = True
.DefaultInsideZoomFormat.InsideUnit = 1048576
.AllowResizeInsideZoom = False
.InsideZoomOnDblClick = False
With .InsideZooms
.SplitBaseLevel = False
.DefaultWidth = 0
End With
With .InsideZooms
.Add #6/9/2011 8:00:00 AM#
.Add #6/9/2011 4:00:00 PM#
End With
.DrawGridLines = -1
.GridLineStyle = 3
End With
.Columns.Add("Defaul").Def(0) = True
With .Items
.AddBar .AddItem("T1"),"Task",#6/8/2011 8:00:00 AM#,#6/10/2011#
.AddBar .AddItem("T2"),"Task",#6/8/2011 4:00:00 PM#,#6/10/2011 8:00:00 AM#
.AddBar .AddItem("T3"),"Task",#6/9/2011#,#6/10/2011#
.CellState(.ItemByIndex(1),0) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2050
|
How can I find out what exBarWorkingCount represents
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("Tasks")
.AllowSizing = False
.Width = 42
End With
With .Columns.Add("Format")
.Def(18) = 258
.FormatColumn = "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=i" & _
"nt((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(" & _
"=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0" & _
":=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
End With
With .Columns.Add("Value")
.Def(18) = 258
.SortType = 1
.Editor.EditType = 1
End With
.HeaderAppearance = 4
.DrawGridLines = -2
.GridLineStyle = 48
.SelBackColor = RGB(204,232,255)
.SelForeColor = RGB(0,0,0)
With .Chart
.SelBackColor = G2antt1.SelBackColor
.FirstVisibleDate = #4/6/2009#
.PaneWidth(False) = 256
.LevelCount = 2
.UnitScale = 65536
.NonworkingHours = 15728767
.ShowNonworkingDates = False
.ShowNonworkingUnits = False
.ShowNonworkingHours = False
With .Bars.Item("Task")
.Def(20) = True
End With
.AllowLinkBars = False
.DrawGridLines = -2
.GridLineStyle = 48
.Level(0).DrawGridLines = True
.ResizeUnitScale = 1048576
.ResizeUnitCount = 15
.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> " & _
"<%h%>:<%nn%> <%AM/PM%><||>15"
.AllowZoomOnFly = 280 ' ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems Or ZoomOnFlyEnum.exZoomOnFly
.BackColorZoomOnFly = RGB(255,255,0)
End With
.Items.AllowCellValueToItemBar = True
With .Items
h = .AddItem("")
.SelectableItem(h) = False
.SortableItem(h) = False
.AddBar .AddItem("T1"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 1:00:00 PM#
.AddBar .AddItem("T2"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 4:00:00 PM#
.AddBar .AddItem("T3"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 7:00:00 PM#
h = .AddItem("")
.SelectableItem(h) = False
.SortableItem(h) = False
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2049
|
How can I hide the filter bar description
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("Filter")
.DisplayFilterButton = True
.FilterType = 240
.Filter = "B"
End With
With .Items
.AddItem "A"
.AddItem "B"
.AddItem "C"
End With
.ApplyFilter
.FilterBarHeight = 0
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2048
|
How can I add a break bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("Tasks")
.AllowSizing = False
.Width = 42
End With
With .Columns.Add("Working")
.Def(18) = 258
.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
End With
.HeaderAppearance = 4
.DrawGridLines = -2
.GridLineStyle = 48
.SelBackColor = RGB(204,232,255)
.SelForeColor = RGB(0,0,0)
With .Chart
.SelBackColor = G2antt1.SelBackColor
.FirstVisibleDate = #4/6/2009#
.PaneWidth(False) = 164
.LevelCount = 2
.UnitScale = 65536
.NonworkingHours = 15728767
.ShowNonworkingDates = False
.ShowNonworkingUnits = False
.ShowNonworkingHours = False
With .Bars.Add("Task:Split")
.Def(20) = True
.Shortcut = "Task"
End With
.AllowLinkBars = False
.DrawGridLines = -2
.GridLineStyle = 48
.Level(0).DrawGridLines = True
.ResizeUnitScale = 1048576
.ResizeUnitCount = 15
.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> " & _
"<%h%>:<%nn%> <%AM/PM%><||>15"
.AllowZoomOnFly = 280 ' ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems Or ZoomOnFlyEnum.exZoomOnFly
.BackColorZoomOnFly = RGB(255,255,0)
.AllowNonworkingBars = True
End With
.Items.AllowCellValueToItemBar = True
With .Items
.AddItem ""
h = .AddItem("T1")
.ItemNonworkingUnits(h,False) = "(weekday(value) in (0,6)) or (timeF(value) < `07:00:00`) or (timeF(value) >= `20:00:00`) "
.AddBar h,"",#4/6/2009 7:30:00 AM#,#4/6/2009 9:30:00 AM#,"A","<c><font ;4>break<br>bar"
.ItemBar(h,"A",38) = True
.AddBar h,"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 0:00:00 PM#
.AddBar .AddItem("T2"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 5:45:00 PM#
.AddItem ""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2047
|
It seems the ResizeUnitCount have no effect on the ZoomOnFly feature, is it normal
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("Tasks")
.AllowSizing = False
.Width = 42
End With
With .Columns.Add("Working")
.Def(18) = 258
.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
End With
.HeaderAppearance = 4
.DrawGridLines = -2
.GridLineStyle = 48
.SelBackColor = RGB(204,232,255)
.SelForeColor = RGB(0,0,0)
With .Chart
.SelBackColor = G2antt1.SelBackColor
.FirstVisibleDate = #4/6/2009#
.PaneWidth(False) = 164
.LevelCount = 2
.UnitScale = 65536
.NonworkingHours = 15728767
.ShowNonworkingDates = False
.ShowNonworkingUnits = False
.ShowNonworkingHours = False
With .Bars.Item("Task")
.Def(20) = True
End With
.AllowLinkBars = False
.DrawGridLines = -2
.GridLineStyle = 48
.Level(0).DrawGridLines = True
.ResizeUnitScale = 1048576
.ResizeUnitCount = 15
.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> " & _
"<%h%>:<%nn%> <%AM/PM%><||>15"
.AllowZoomOnFly = 280 ' ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems Or ZoomOnFlyEnum.exZoomOnFly
.BackColorZoomOnFly = RGB(255,255,0)
End With
.Items.AllowCellValueToItemBar = True
With .Items
.AddItem ""
.AddBar .AddItem("T1"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 0:00:00 PM#
.AddBar .AddItem("T2"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 5:45:00 PM#
.AddItem ""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2046
|
Export Data in HTML format
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ItemBold(Item) = True
.AddBar Item,"Summary",.CellValue(Item,2),.CellValue(Item,4)
.DefineSummaryBars Item,"",-3,""
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
i = .ItemToIndex(Item)
.AddBar Item,"Task",#1/2/2008#,#1/9/2008#,""
.ItemBar(Item,"",514) = i
.ItemBar(Item,"",513) = i
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.BackColorAlternate = RGB(240,240,240)
.DrawGridLines = -1
.HeaderAppearance = 4
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = 2
.SingleSort = False
.AllowGroupBy = True
.BackColorSortBar = .BackColor
.DrawGridLines = -1
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
.RenderType = -268435456
End With
With .Chart
.DrawGridLines = -1
.PaneWidth(False) = 196
.LevelCount = 2
.FirstVisibleDate = #1/1/2008#
.FirstWeekDay = 1
With .Bars.Item("Summary")
.StartShape = 0
.EndShape = 0
.Shape = 1
.Color = &H1808080
.Height = 7
.Def(3) = "<%=%513%>"
.Def(4) = 18
End With
With .Bars.Item("Task")
.Def(3) = "<%=(%2-%1) in (3,5) ? %513 : `` %>"
.Def(4) = 18
End With
End With
With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
.ForeColor = RGB(255,0,0)
.BarColor = .ForeColor
.ApplyToBars = "Task"
End With
With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
.ForeColor = RGB(0,255,0)
.BarColor = .ForeColor
.ApplyToBars = "Task"
End With
With .Columns
.Add("Tasks").Def(0) = True
With .Add("Start")
.Def(18) = 1
.Def(19) = ""
End With
With .Add("End")
.Def(18) = 2
.Def(19) = ""
End With
End With
With .Items
.AllowCellValueToItemBar = True
.AddItem "Task A"
.AddItem "Task A"
.AddItem "Task A"
.AddItem "Task A"
.AddItem "Task B"
.AddItem "Task B"
.AddItem "Task B"
.AddItem "Task C"
End With
.Columns.Item("Tasks").SortOrder = 1
.EndUpdate
sFile = "c:/temp/export.html"
.Export sFile,"vis"
With CreateObject("InternetExplorer.Application")
.Navigate2 sFile
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
2045
|
Export Data in CSV format
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
i = .ItemToIndex(Item)
.AddBar Item,"Task",#1/2/2008#,#1/9/2008#,""
.ItemBar(Item,"",514) = i
.ItemBar(Item,"",513) = i
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.BackColorAlternate = RGB(240,240,240)
.DrawGridLines = -1
.HeaderAppearance = 4
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = 2
With .Chart
.PaneWidth(False) = 196
.LevelCount = 2
.FirstVisibleDate = #1/1/2008#
With .Bars.Item("Task")
.Def(3) = "<%=(%2-%1) in (3,5) ? %513 : `` %>"
.Def(4) = 18
End With
End With
With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
.ForeColor = RGB(255,0,0)
.BarColor = .ForeColor
.ApplyToBars = "Task"
End With
With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
.ForeColor = RGB(0,255,0)
.BarColor = .ForeColor
.ApplyToBars = "Task"
End With
With .Columns
.Add("Tasks").Def(0) = True
With .Add("Start")
.Def(18) = 1
.Def(19) = ""
End With
With .Add("End")
.Def(18) = 2
.Def(19) = ""
End With
End With
With .Items
.AllowCellValueToItemBar = True
.AddItem "Task A"
.AddItem "Task A"
.AddItem "Task A"
.AddItem "Task A"
.AddItem "Task B"
.AddItem "Task B"
.AddItem "Task B"
.AddItem "Task C"
End With
.EndUpdate
alert( .Export("","vis") )
End With
End Function
</SCRIPT>
</BODY>
|
|
2044
|
I want to be able to detect when a user clicks on a row in the chart that is not populated
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
With G2antt1
item = .ItemFromPoint(-1,-1,col,hit)
date = .Chart.DateFromPoint(-1,-1)
sMessage = .FormatABC("(not(A = 0) ? `chart` : `list`) + ` ` + (not(B = 0) ? `item` : `empty`) ",date,item)
alert( sMessage )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.PaneWidth(False) = 128
.LevelCount = 2
.FirstVisibleDate = #1/1/2018#
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Task 1"),"Task",#1/2/2018#,#1/12/2018#
.AddBar .AddItem("Task 2"),"Task",#1/3/2018#,#1/13/2018#
.AddBar .AddItem("Task 3"),"Task",#1/4/2018#,#1/14/2018#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2043
|
Is it possible to have multiple calendars. A calendar for each row for example. Reason : some of our lines work 2 shifts but some also have a night shift
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
With .Columns.Add("Working")
.Def(18) = 258
.FormatColumn = "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((" & _
"1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
End With
With .Chart
.FirstVisibleDate = #4/6/2009#
.PaneWidth(False) = 148
.LevelCount = 2
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
With .Bars
.Add("Task:Split").Shortcut = "Task"
.Item("Task").Def(20) = True
End With
.Label(65536) = "<%h%><||><||>65536"
.Level(0).FormatLabel = "`<font small fonts;6>` + value"
.Level(1).FormatLabel = "len(value) = 2 ? (`<font small fonts;4>` + (value left 1) + `<br>` + (value right 1) ) : (`<font small fonts;4>` + ` <br>` + (v" & _
"alue left 1) + `` )"
.UnitScale = 65536
.UnitWidth = 9
End With
.Items.AllowCellValueToItemBar = True
With .Items
sCalendar1 = "weekday(value) in (0,6) or (hour(value) < 6) or (hour(value) > 18)"
h = .AddItem("Shift 1")
.ItemNonworkingUnits(h,False) = sCalendar1
.AddBar h,"Task",#4/6/2009#,#4/7/2009#
h = .AddItem("Shift 1")
.ItemNonworkingUnits(h,False) = sCalendar1
.AddBar h,"Task",#4/6/2009#,#4/8/2009#
sCalendar2 = "weekday(value) in (0,6) or (hour(value) < 8) or (hour(value) > 14)"
h = .AddItem("Shift 2")
.ItemNonworkingUnits(h,False) = sCalendar2
.AddBar h,"Task",#4/6/2009#,#4/7/2009#
h = .AddItem("Shift 2")
.ItemNonworkingUnits(h,False) = sCalendar2
.AddBar h,"Task",#4/6/2009#,#4/8/2009#
sCalendar3 = "weekday(value) in (0,6) or 0 = ( hour(value) mod 3 ) "
h = .AddItem("Shift 3")
.ItemNonworkingUnits(h,False) = sCalendar3
.AddBar h,"Task",#4/6/2009#,#4/7/2009#
h = .AddItem("Shift 3")
.ItemNonworkingUnits(h,False) = sCalendar3
.AddBar h,"Task",#4/6/2009#,#4/8/2009#
sCalendar4 = "weekday(value) in (0,6)"
h = .AddItem("Shift 3")
.ItemNonworkingUnits(h,False) = sCalendar4
.AddBar h,"Task",#4/6/2009#,#4/7/2009#
h = .AddItem("Shift 3")
.ItemNonworkingUnits(h,False) = sCalendar4
.AddBar h,"Task",#4/6/2009#,#4/8/2009#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2042
|
Is it possible to check multiple-items at once
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
bHasParent = .FormatABC("value != 0",.Items.ItemParent(Item))
With .Items
.CellHasCheckBox(Item,0) = bHasParent
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
With .Columns.Add("Tasks")
.Def(17) = 1
.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
End With
.HeaderVisible = 1
.SingleSel = False
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
hChild = .InsertItem(h,,"Task 2")
hChild = .InsertItem(h,,"Task 3")
.ExpandItem(h) = True
.LockedItemCount(0) = 1
.CellValue(.LockedItem(0,0),0) = "<c>Select multiple items and press the <b>SPACE</b> key"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2041
|
How can I prevent changing the start/end colors of the bar, when ItemBar(exBarColor) property is applied
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.VisualAppearance.Add 1,"E:\Exontrol\ExButton\sample\EBN\Assorted\bhframe.ebn"
.Chart.PaneWidth(False) = 96
With .Chart.Bars
.AddShapeCorner 12345,1
.AddShapeCorner 999,2
.AddShapeCorner 1049,3
With .Add("T1")
.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.EndShape = 999 ' &H3e0 Or ShapeCornerEnum.exShapeIconLeft
.Pattern = 4
.StartColor = RGB(0,255,0)
.Color = &H1000000
.EndColor = RGB(255,0,0)
.Def(3) = "<%=`<font ;6> ` + %0 + ``%>"
.Def(4) = 18
End With
With .Add("T2")
.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.EndShape = 1049 ' &H400 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.Pattern = 4
.StartColor = -1
.Color = &H1000000
.EndColor = -1
.Def(3) = "<%=`<font ;6> ` + %0 + ``%>"
.Def(4) = 18
End With
End With
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"T1",#1/2/2001#,#1/4/2001#
h = .AddItem("Item 2")
.AddBar h,"T1",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 65280
h = .AddItem("Item 3")
.AddBar h,"T1",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 255
h = .AddItem("Item 4")
.AddBar h,"T2",#1/2/2001#,#1/4/2001#
h = .AddItem("Item 5")
.AddBar h,"T2",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 65280
h = .AddItem("Item 6")
.AddBar h,"T2",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 255
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2040
|
How can I get the icon from the cell when using the Items.CellImages property (icon index)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
With G2antt1
i = .ItemFromPoint(-1,-1,c,hit)
alert( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,.Items.CellImages(i,c)) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Chart.PaneWidth(True) = 0
.Columns.Add "Default"
With .Items
.CellImages(.AddItem("Item 1"),0) = "3,2,1"
.CellImages(.AddItem("Item 2"),0) = "2,3"
.CellImages(.AddItem("Item 3"),0) = "2,"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2039
|
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
With G2antt1
i = .ItemFromPoint(-1,-1,c,hit)
alert( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Chart.PaneWidth(True) = 0
.Columns.Add "Default"
With .Items
.CellImages(.AddItem("Item 1"),0) = "3,2,1"
.CellImages(.AddItem("Item 2"),0) = "2,3"
.CellImages(.AddItem("Item 3"),0) = "2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2038
|
I have an EBN bar. Now if I apply an additional color to the bar, e,g, yellow, the bar is displayed as "dark yellow", which I assume is due to the black EBN color. How can I get the more "bright yellow" color
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ItemDividerLine(Item) = 0
.AddBar Item,"Summary",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
l = .GroupItem(Item)
.CellSingleLine(Item,l) = False
.CellBold(Item,l) = True
.ItemBackColor(Item) = RGB(190,190,190)
End With
.Chart.ItemBackColor(Item) = RGB(190,190,190)
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
.RenderType = -268435456
End With
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 342
With .Bars.Item("Summary")
.StartShape = 0
.EndShape = 0
.Shape = 1
.Color = &H1ff0000
.Def(3) = "<%=%513%>"
.Def(4) = 18
End With
End With
With .Columns
.Add "C1"
.Add "C2"
.Add "C3"
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
.HasLines = 0
.LinesAtRoot = 0
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
End With
With .Columns.Item(0)
.SortOrder = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2037
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderAppearance = 4
With .Columns
.Add "Column 1"
.Add "Column 2"
.Add "Column 3"
End With
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
.Add 2,"CP:1 0 -36 0 0"
End With
.Background(182) = &H2000000
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2036
|
Overlaid-Types
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
With .Items
barName = .ItemData(Item)
.AddBar Item,barName,#1/2/2001#,#1/4/2001#,"A1"
.AddBar Item,barName,#1/3/2001#,#1/5/2001#,"A2"
.AddBar Item,barName,#1/4/2001#,#1/7/2001#,"A3"
.AddBar Item,barName,#1/5/2001#,#1/8/2001#,"A4"
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DefaultItemHeight = 22
.Columns.Add "Task"
.ScrollBySingleLine = True
.BackColorAlternate = RGB(240,240,240)
.DrawGridLines = 1
With .Chart
.DrawGridLines = 1
.ShowNonworkingDates = False
.PaneWidth(False) = 164
.FirstVisibleDate = #12/28/2000#
.LevelCount = 2
.Bars.Copy("Task","Intersect").Color = RGB(255,0,0)
.Bars.Item("Task").OverlaidType = 0
With .Bars.Copy("Task","Task-Transparent")
.OverlaidType = 0
.Def(19) = 50
.Pattern = 32
.Color = RGB(0,0,0)
.StartColor = RGB(80,80,255)
.EndColor = .StartColor
End With
.Bars.Copy("Task","Task-Offset").OverlaidType = 1
With .Bars.Copy("Task","Task-OffsetTransparent")
.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
.Overlaid(256) = 75
End With
With .Bars.Copy("Task","Task-Intersect")
.OverlaidType = 2
.Overlaid(2) = "Intersect"
End With
.Bars.Copy("Task","Task-Stack").OverlaidType = 3
With .Bars.Copy("Task","Task-StackAutoArrange")
.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.Color = RGB(255,0,0)
.OverlaidGroup = "Task"
End With
With .Bars.Copy("Task","Task-Cascade")
.OverlaidType = 4
.Color = RGB(255,0,0)
.OverlaidGroup = "Task"
End With
With .Bars.Copy("Task","Task-Strict")
.OverlaidType = 8195 ' OverlaidBarsTypeEnum.exOverlaidBarsStrict Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task"
.Color = RGB(255,0,0)
End With
End With
With .Items
.InsertItem 0,"Task","Overlaid-None"
.InsertItem 0,"Task-Transparent","Overlaid-Semi-Transparent"
.InsertItem 0,"Task-Offset","Overlaid-Offset"
.InsertItem 0,"Task-OffsetTransparent","Overlaid-OffsetTransparent"
.InsertItem 0,"Task-Intersect","Overlaid-Intersect"
.InsertItem 0,"Task-Stack","Overlaid-Stack"
h = .InsertItem(0,"Task-StackAutoArrange","Overlaid-StackAutoArrange")
.AddBar h,"Task",#1/7/2001#,#1/9/2001#,"T1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"T2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"T3"
.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"T4"
h = .InsertItem(0,"Task-Cascade","Overlaid-Cascade")
.AddBar h,"Task",#1/7/2001#,#1/9/2001#,"T1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"T2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"T3"
.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"T4"
.ItemBar(h,"<A*>",52) = "A"
.ItemBar(h,"<T*>",52) = "T"
h = .InsertItem(0,"Task","Overlaid-StackStrict")
.AddBar h,"Task-Strict",#1/7/2001#,#1/9/2001#,"T1"
.ItemBar(0,"<*>",3) = "<%=%9%>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2035
|
FilterBarCaption ALLUI Keyword ( sample 3, result, leaf )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ItemBackColor(Item) = RGB(240,240,240)
val = .CellValue(Item,.GroupItem(Item))
.CellState(Item,.GroupItem(Item)) = G2antt1.FormatABC("A = `Checked` ? 1 : 0",val)
End With
With .Items
.ItemDividerLine(Item) = 0
.AddBar Item,"Summary",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
l = .GroupItem(Item)
.CellSingleLine(Item,l) = False
.CellBold(Item,l) = True
End With
.Chart.ItemBackColor(Item) = RGB(240,240,240)
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
.Items.CellImage(Item,3) = i
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
With .Bars.Item("Summary")
.StartShape = 0
.EndShape = 0
.Shape = 1
.Color = &H1000000
.Def(3) = "<%=%513%>"
.Def(4) = 18
End With
End With
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.Def(0) = True
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = 10
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 rpos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
h = .AddItem("Item B")
.CellValue(h,1) = "Sub-Item B"
.CellState(h,2) = 1
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + leafitemcount + ` result(s)` ) : (`<r><fgcolor=808080>`+ leafitemcount + `" & _
" item(s)`) )))"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
.AllowGroupBy = True
.SortBarVisible = True
With .Columns.Item(2)
.FormatColumn = "%CS2 ? `Checked` : `Unchecked`"
.SortOrder = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2034
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = True
.DefaultItemHeight = 20
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="
With .Columns.Add("Default")
.Def(0) = True
.PartialCheck = True
End With
With .Columns.Add("Position")
.FormatColumn = "1 rindex ``"
.Visible = False
End With
With .ConditionalFormats.Add("%C1 mod 2")
.BackColor = &H1000000
End With
With .Items
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.AddItem "Item 4"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2033
|
How can I specify alternate background colors for each root item, similar with BackColorAlternate
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
With .Columns.Add("Default")
.Def(0) = True
.PartialCheck = True
End With
With .Columns.Add("Position")
.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
.Visible = False
End With
With .ConditionalFormats.Add("%C1 mod 2")
.BackColor = RGB(240,240,240)
End With
With .Items
h = .AddItem("Root 1")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
h = .AddItem("Root 3")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2032
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" & _
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" & _
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" & _
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" & _
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" & _
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" & _
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" & _
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" & _
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" & _
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" & _
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" & _
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" & _
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
.Columns.Add "Column"
With .Items
h = .AddItem("Root 1")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem h,,"Child"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2031
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
.Add 1,"CP:3 -2 -2 2 2"
.Add 4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
.Add 2,"CP:4 -2 -2 2 2"
End With
.LinesAtRoot = 1
.HasButtons = 4
.HasButtonsCustom(0) = 16777216
.HasButtonsCustom(1) = 33554432
.Columns.Add "Column"
With .Items
h = .AddItem("Root 1")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem h,,"Child"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2030
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"XP:TREEVIEW 2 1"
.Add 2,"XP:TREEVIEW 2 2"
End With
.Background(180) = &H1000000
.Background(181) = &H2000000
.LinesAtRoot = -1
.Columns.Add "Column"
With .Items
h = .AddItem("Root 1")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem h,,"Child"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2029
|
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
alert( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
End Function
</SCRIPT>
</BODY>
|
|
2028
|
How can I change the visual appearance of the +/- buttons (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
.Add 2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
End With
.LinesAtRoot = -1
.Background(180) = &H1000000
.Background(181) = &H2000000
.Columns.Add "Column"
With .Items
h = .AddItem("Root 1")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem h,,"Child"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2027
|
How can I add a summary bar once the user group by a column
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ItemDividerLine(Item) = 0
.AddBar Item,"Summary",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
l = .GroupItem(Item)
.CellSingleLine(Item,l) = False
.CellBold(Item,l) = True
.ItemBackColor(Item) = RGB(190,190,190)
End With
.Chart.ItemBackColor(Item) = RGB(190,190,190)
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 342
With .Bars.Item("Summary")
.StartShape = 0
.EndShape = 0
.Shape = 1
.Color = &H1000000
.Def(3) = "<%=%513%>"
.Def(4) = 18
End With
End With
With .Columns
.Add "C1"
.Add "C2"
.Add "C3"
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
.HasLines = 0
.LinesAtRoot = 0
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
End With
With .Columns.Item(0)
.SortOrder = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2026
|
Is it possible to display no +/- button for grouped items
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ItemDividerLine(Item) = 0
.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
l = .GroupItem(Item)
.CellSingleLine(Item,l) = False
.CellBold(Item,l) = True
.ItemBackColor(Item) = RGB(190,190,190)
End With
.Chart.ItemBackColor(Item) = RGB(190,190,190)
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 342
End With
With .Columns
.Add "C1"
.Add "C2"
.Add "C3"
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
.HasLines = 0
.LinesAtRoot = 0
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
End With
With .Columns.Item(0)
.SortOrder = 1
.Alignment = 1
.Def(4) = 15790320
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2025
|
How can I change the label, caption or the formula of the grouped items
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 342
End With
With .Columns
With .Add("C1")
.GroupByTotalField = ""
.GroupByFormatCell = "upper(value)"
End With
.Add "C2"
.Add "C3"
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
End With
.Columns.Item(0).SortOrder = 1
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2024
|
How can I change the aspect of grouped items
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ItemDividerLine(Item) = 0
.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
l = .GroupItem(Item)
.CellSingleLine(Item,l) = False
.CellBold(Item,l) = True
.ItemBackColor(Item) = RGB(190,190,190)
End With
.Chart.ItemBackColor(Item) = RGB(190,190,190)
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 342
End With
With .Columns
.Add "C1"
.Add "C2"
.Add "C3"
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
End With
.Columns.Item(0).SortOrder = 1
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2023
|
How can I collapse all items when the user performs a grouping
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
With G2antt1
With .Items
.ExpandItem(Item) = False
.ItemDividerLine(Item) = 0
.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
.DefineSummaryBars Item,"",-3,""
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 342
End With
With .Columns
.Add "C1"
.Add "C2"
.Add "C3"
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
End With
.Columns.Item(0).SortOrder = 1
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2022
|
Is it possible to select columns that user can drop to the sort bar, when using the Group By feature
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 342
End With
With .Columns
.Add "C1"
.Add "C2"
.Add "C3"
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "<fgcolor=FF0000>Try to drag the Pos column here."
.AllowGroupBy = True
With .Items
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item A")
.CellValue(h,1) = "SubItem A.1"
.CellValue(h,2) = "SubItem A.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
h = .AddItem("Item B")
.CellValue(h,1) = "SubItem B.1"
.CellValue(h,2) = "SubItem B.2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2021
|
How can I filter for the type of the bars I have in my chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #11/28/2017#
.PaneWidth(False) = 0
With .Bars.Item("Task")
.Def(3) = "<%=%0%>"
.Def(4) = 18
End With
With .Bars.Copy("Task","GTask")
.Def(3) = "<%=%0%>"
.Def(4) = 18
.Color = RGB(0,255,0)
End With
With .Bars.Copy("Task","RTask")
.Def(3) = "<%=%0%>"
.Def(4) = 18
.Color = RGB(255,0,0)
End With
.ColumnsFormatLevel = "0"
End With
.OnResizeControl = 129 ' OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizeChart
With .Columns.Add("Default")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Type")
.Def(19) = ""
.Def(18) = 0
.Visible = False
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar .AddItem("Item 1"),"Task",#12/4/2017#,#12/12/2017#
.AddBar .AddItem("Item 2"),"GTask",#12/4/2017#,#12/12/2017#
.AddBar .AddItem("Item 3"),"RTask",#12/4/2017#,#12/12/2017#
.AddBar .AddItem("Item 4"),"Task",#12/4/2017#,#12/12/2017#
.AddBar .AddItem("Item 5"),"GTask",#12/4/2017#,#12/12/2017#
.AddBar .AddItem("Item 6"),"RTask",#12/4/2017#,#12/12/2017#
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
.FilterBarPromptVisible = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(1)
.FilterType = 240
.Filter = "GTask|RTask"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2020
|
How can I display the control's filter bar in the Items section only, as it was displayed before
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarPromptVisible = 4096
With .Columns.Item(1)
.FilterType = 3
.Filter = "*B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2019
|
FilterBarCaption ALL Keyword ( sample 2, result )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
.Items.CellImage(Item,3) = i
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
With .Editor
.EditType = 19
.Option(17) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = 10
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
h = .AddItem("Item B")
.CellValue(h,1) = "Sub-Item B"
.CellState(h,2) = 1
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2018
|
FilterBarCaption ALL Keyword ( sample 1 )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
.Items.CellImage(Item,3) = i
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
With .Editor
.EditType = 19
.Option(17) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = 10
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
h = .AddItem("Item B")
.CellValue(h,1) = "Sub-Item B"
.CellState(h,2) = 1
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "all"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2017
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
.Items.CellImage(Item,3) = i
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
With .Editor
.EditType = 19
.Option(17) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = 10
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
h = .AddItem("Item B")
.CellValue(h,1) = "Sub-Item B"
.CellState(h,2) = 1
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2016
|
FilterBarCaption ALLUI Keyword ( sample 1 )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
.Items.CellImage(Item,3) = i
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
With .Editor
.EditType = 19
.Option(17) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = 10
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
h = .AddItem("Item B")
.CellValue(h,1) = "Sub-Item B"
.CellState(h,2) = 1
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "allui"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2015
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
.Items.CellImage(Item,3) = i
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
With .Editor
.EditType = 19
.Option(17) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = 10
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
h = .AddItem("Item B")
.CellValue(h,1) = "Sub-Item B"
.CellState(h,2) = 1
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2014
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
.Items.CellImage(Item,3) = i
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
With .Editor
.EditType = 19
.Option(17) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = 10
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
h = .AddItem("Item B")
.CellValue(h,1) = "Sub-Item B"
.CellState(h,2) = 1
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
.FilterBarCaption = "value + ` ` + available"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2013
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
.FilterBarPromptVisible = 256
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = 3
.Filter = "*B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2012
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.FilterBarFont = .Font
.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
.FilterBarPromptVisible = 256
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = 3
.Filter = "*B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2011
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
End With
.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
.FilterBarPromptVisible = 256
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = 3
.Filter = "*B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2010
|
Is it possible to automatically displays the control's filter label to the right
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
With .Columns.Add("Item")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarCaption = "`<r>` + value"
.FilterBarPromptVisible = 1280 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2009
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
With .Columns.Add("Item")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarFont = .Font
.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
.FilterBarPromptVisible = 3591 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2008
|
How can I get the number of results being shown in the control's filter bar (sample 3)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : ``)"
.FilterBarPromptVisible = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2007
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = 2071 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2006
|
How can I get the number of results being shown in the control's filter bar (sample 1)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2005
|
FilterBarCaption Predefined Keywords
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AfterExpandItem(Item)
With G2antt1
.Refresh
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.LinesAtRoot = -1
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Check")
With .Editor
.EditType = 19
.Option(17) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = 6
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
h = .AddItem("Item B")
.CellState(.InsertItem(h,,"Sub-Item B1"),1) = 1
.InsertItem h,,"Sub-Item B2"
.ExpandItem(h) = True
.AddItem "Item C"
End With
.FilterInclude = 1
.FilterBarFont = .Font
.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2004
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2003
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarPromptVisible = 1281 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2002
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.RightToLeft = True
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarPromptVisible = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2001
|
How can I change the visual appearance of the filter bar's close button (EBN)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.FilterBarPromptVisible = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
.Background(1) = &H1000000
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|